home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1985 August / 64er_Magazin_85-08_1985_Markt__Technik_de.d64 / scr 5 < prev    next >
Text File  |  2022-10-26  |  259b  |  26 lines
  1.  : mlen$
  2.     2 - @
  3.  ;
  4.  : len$
  5.     dup 1 -
  6.     begin
  7.       1 + dup
  8.       c@
  9.      0 =
  10.     until
  11.     swap -
  12.  ;
  13.  : input$
  14.     dup dup mlen$
  15.     ." :" expect
  16.     1 -
  17.     begin
  18.       1 + dup c@
  19.      13 =
  20.     until
  21.     0 swap c! drop
  22.  ;
  23.  : print$ dup len$ type ;
  24.  
  25.  
  26.  
  27.